(insert-kbd-macro): Pass (keymap) as KEYMAP arg to where-is-internal.

diff --git a/lisp/macros.el b/lisp/macros.el
index 1e093a7630a56b2e7b1d35c8e68fc33741adc6aa..cbb612494b0bd87b7bfbba1f38061c6aee626410 100644 (file)
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -95,7 +95,7 @@ use this command, and then save the file."
                 (insert "\\M-C-?"))))))
     (insert ")\n")
     (if keys
-       (let ((keys (where-is-internal macroname nil)))
+       (let ((keys (where-is-internal macroname '(keymap))))
          (while keys
            (insert "(global-set-key ")
            (prin1 (car keys) (current-buffer))